%
id =request.QueryString("id")
set rs=Server.CreateObject("Adodb.Recordset")
sql="select * from article where Deleted=False and articleid="&clng(id)
rs.open sql,conn,1,1
dim key
if not rs.eof and not rs.bof then
title=rs("title")
classid=rs("classid")
content=replace(rs("content"),"UploadFiles/",adminpath&"UploadFiles/")
updatetime=rs("updatetime")
author=rs("author")
copyfrom=rs("copyfrom")
key=rs("key")
end if
%>
<%
If Request("page")="" Then
pageNum=0
Else
pageNum=Request("page")
End if
%>
<%
dim ContentStr,Content
content=rs("content")
ContentStr=split(Content,"|||")
For i=pageNum to pageNum
%>
<%=ContentStr(i) %>